home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 44 / PC Actual CD 44.iso / Linux / Cygwin / full.exe / Disk1 / data1.cab / Tools / share / tix4.1 / bitmaps / mktransgif.tcl < prev    next >
Encoding:
Text File  |  1998-12-04  |  176 b   |  12 lines
  1. #!/usr/local/bin/tclsh
  2.  
  3. set dont(plusarm.gif)  1
  4. set dont(minusarm.gif) 1
  5.  
  6. foreach file [glob *.gif] {
  7.     if ![info exists dont($file)] {
  8.     puts "giftool -1 -B $file"
  9.     }
  10. }
  11.  
  12.